home *** CD-ROM | disk | FTP | other *** search
/ Loadstar - Compleat Bible / newtest.d81 / compleat nt (.txt) < prev    next >
Commodore BASIC  |  2022-08-28  |  5KB  |  128 lines
  1. 10 ifmtthen100
  2. 15 poke56,32:clr
  3. 35 dv=peek(186):ifdv<8thendv=8
  4. 36 sys57812"font",dv,0:poke780,0:poke781,0:poke782,32:sys65493
  5. 37 sys57812"bible 3000",dv,0:poke780,0:poke781,0:poke782,48:sys65493
  6. 38 sys57812"dtext 2800",dv,0:poke780,0:poke781,0:poke782,40:sys65493
  7. 40 poke53272,24:mt=12288:dtext=10240:dimfiles$(10),d%(7)
  8. 45 sysmt+9,8192,2,105:sysmt+9,8192,3,95:poke53272,24
  9. 50 rem poke53374,0:poke53366,0:poke53375,0
  10. 55 sysmt+201,95,105,4,10,14,1,14,7,6,1,0,0
  11. 60 sys10240,"books",dv,80*256:sysmt+36,80*256:wb=peek(20):sysmt+54:bl=f%
  12. 65 sysmt+15,"bnames",dv,107*256:sysmt+36,107*256:sysmt+54:bn=f%
  13. 70 open2,dv,2,"bible mark,p,r":get#2,a$,a$:input#2,bb,bc,bv:close2
  14. 75 ifst<>64thenbb=39:nc=1:bv=1
  15. 80 poke650,128:shade=mt+96:frame=mt+6:center=mt+78:box=mt+3:at=center-3
  16. 85 x=0:fori=8to29:ifi<>14thenclose2:open2,i,2:close2:ifst=0thend%(x)=i:x=x+1
  17. 90 next:fori=0tox:ifd%(i)=dvthena=i
  18. 95 next:nd=x:i=d%(0):d%(a)=i:d%(0)=dv:dx=0:poke186,dv
  19. 100 t$="[212]he [195]ompleat [206]ew [212]estament"
  20. 105 a$(1)="[207]pen a [194]ible [194]ook           ([207])"
  21. 120 a$(2)="[211]earch [194]ible [212]ext           ([211])
  22. 135 a$(3)[178]"(NULL)rogram str$ocumentation       (str$)"
  23. 140 h$[178]" osd"
  24. 145 [158]mt[170]198,t$,3,a$(1),a$(2),a$(3),h$
  25. 150 [145]f%[141]300,180,20000:[137]100
  26. 180 f$[178]"o.whole search":[137]2300
  27. 300 [158]mt[170]36,80[172]256:[158]shade,9,9[170]wb,7,20
  28. 305 [158]mt[170]42,10,10[170]wb,6,19,1,5,1,13,bb,65,0:book%[178]i%:[139]lb[178]i%[167]330
  29. 310 ww$[178]w$:[158]mt[170]84,w$:f$[178]w$:t[178]0
  30. 315 [141]1000:[139]f%[178][171]1[176][197](a$)[167][139]t[179]nd[167][141]2100:[137]315
  31. 320 [139]f%[178][171]1[167]e$[178]"error bnf":[141]2200:[142]
  32. 325 [158]mt[170]48,0:[158]mt[170]27,bl:[158]mt[170]30,ww$,bo%,1:[158]dt,w$,d%(dx),84[172]256:hs[178]0:lh$[178]w$
  33. 330 [158]mt[170]207,84[172]256:eh[178]f%[171]1
  34. 335 [158]frame,1,39,1,16,13:[158]box,2,38,2,2,160,13
  35. 340 [158]box,2,38,3,3,160,3
  36. 345 [153]"print";:[158]center,2,"(NULL)ick atnn valntry (NULL)oint right$n (NULL)he peekook"
  37. 350 [158]mt[170]42,2,38,4,15,1,3,1,7,0,eh,0:[139]f%[178]0[167][142]
  38. 355 [139]f%[179][177]1[167]380
  39. 360 [158]box,2,37,22,22,32,0:[158]at,2,22,"waitopenlenhapter:(NULL)erse (cc:vv) "
  40. 365 [129]i[178]0[164]2:[151]631[170]i,[198]("cmd"):[130]:[151]198,3
  41. 370 [158]mt[170]51,1,7,7,"1:1":[139]w$[178]""[167][142]
  42. 375 [137]385
  43. 380 hs[178]f%:[158]mt[170]36,84[172]256:[158]mt[170]33,hs[172]2[170]1
  44. 385 verse[178][197](w$):v$[178]w$:[141]3000:f$[178]w$[170]"???-???":[139]lb[178]bo%[167]400
  45. 390 [141]1000:[139]f%[179]0[167][142]
  46. 395 files[178]f%:[158]mt[170]48,1:[129]i[178]0[164]files:[158]mt[170]33,i:fi$(i)[178]w$:[130]:[158]mt[170]48,0
  47. 400 i[178]0
  48. 405 w$[178]fi$(i)
  49. 410 [139][197]([202](w$,6,3))[179][178]verse[175][197]([202](w$,10,3))[177][178]verse[167]425
  50. 415 [139]i[179]files[167]i[178]i[170]1:[137]405
  51. 420 i[178]0:w$[178]fi$(i)
  52. 425 [139][197](v$)[177][197]([202](w$,10,3))[167]v$[178]"1:1":[137]400
  53. 430 [139]cl$[179][177]w$[167]f$[178]w$:[158]dt,f$,d%(dx),7[172]4096:cl$[178]f$:lb[178]book%
  54. 435 [158]mt[170]36,7[172]4096:en[178]f%
  55. 440 [141]2000
  56. 445 [158]mt[170]210,v$,0,en:sp[178]f%:[139]sp[179]0[167]sp[178]0
  57. 450 [158]mt[170]42,1,38,3,18,1,15,15,7,sp,en[171]1,1
  58. 455 [141]700:[137]330
  59. 700 t$[178]"(NULL) (NULL) (NULL) right$ (NULL) (NULL) (NULL)"
  60. 705 a$(1)[178]"peekack to left$ighlight (NULL)enu    (asc-1)"
  61. 710 a$(2)[178]"valxport (NULL)elected (NULL)cripture  (x)"
  62. 715 a$(3)[178]"(NULL)earch lenurrent (NULL)ext        ((NULL))
  63. 720 a$(4)="[195]ontinue [211]earch            (s)
  64. 730 a$(5)[178]"(NULL)rint (NULL)elected (NULL)ext        ((NULL))
  65. 735 a$(6)="[210]eturn to [204][207][193][196][211][212][193][210]         ([209])"
  66. 740 h$=" [133]x[211]spq"
  67. 745 sysmt+198,t$,6,a$(1),a$(2),a$(3),a$(4),a$(5),a$(6),h$
  68. 750 iff%=1thenreturn
  69. 755 onf%gosub765,765,855,865,760,210:goto745
  70. 760 ed=4:goto770
  71. 765 ed=dv
  72. 770 poke199,0:sysmt+213,0,en-1:a=f%:sysbox,1,38,21,23,32,0
  73. 775 iff%<0thena$="[206]o [212]ext [211]elected!":gosub5020:sysmt+36,80*256:poke198,0:return
  74. 780 ifed=4thena$=chr$(13):goto810
  75. 785 sysbox,1,38,21,23,32,0:sysat,2,22,"[146][198]ilename: "
  76. 790 sysmt+51,3,4,25,"@0:export.txt"
  77. 795 ifw$=""thenreturn
  78. 800 a$=w$+",s,w":sysbox,1,38,21,23,32,0:sysat,2,22,"[146]device: "
  79. 805 sysmt+51,3,4,25,str$(dv):ed=val(w$):ifed<8ored>29then800
  80. 810 close2:open2,ed,2:close2:ifstthenreturn
  81. 815 open2,ed,7,a$
  82. 820 print#2,chr$(13)
  83. 825 print#2,"[198]rom the book of "ww$
  84. 830 print#2,"-----------------"left$("--------------------",len(ww$))
  85. 835 c=0:fori=atoen-1:sysmt+33,i:iff%thenprint#2,w$:c=c+1
  86. 840 next:close2
  87. 845 sysbox,1,38,21,23,32,0
  88. 850 sysce,22,str$(c)+" lines exported":poke198,0:wait198,15:poke198,0:return
  89. 855 sysbox,1,38,21,23,32,0:sysat,2,22,"[146][211]earch for: "
  90. 860 sysmt+51,3,4,25,"":se$=w$:ifw$=""thenreturn
  91. 865 sysbox,1,38,21,23,32,0
  92. 870 f%=-1:ifse$<>""thensysmt+210,se$,ss,en-1
  93. 875 sp=f%:ifsp<0thensysce,22,"[206]ot found":poke198,0:wait198,15:poke198,0:return
  94. 880 gosub2000:sysmt+42,1,38,1,18,1,15,15,7,sp,en-1,1:ss=sp+1:goto700
  95. 885 f$="bookmark prg":gosub2300:return
  96. 890 stop
  97. 1000 sysmt+39,"$:"+f$,d%(dx),208*256:sysmt+48,0:close15:open15,d%(dx),15
  98. 1010 input#15,a$,e$:close15:return
  99. 2000 sysbox,0,39,0,24,160,15:sysframe,0,39,0,24,14:sysbox,1,38,20,23,160,14
  100. 2005 sysbox,1,38,1,1,160,7:print"[158]";:sysmt+78,1,"[212]he [194]ook of "+ww$
  101. 2010 sysat,2,20,"[154][195][210][211][210] [212]hrough text   +/- to page"
  102. 2020 ifww$<>"[196]ocumentation"thensysat,2,21,"[210][197][212][213][210][206] - mark text for export/print
  103. 2030 [158]at,2,22,"left$(NULL)(NULL)val - top  len(NULL)(NULL) - peekottom asc1 - valxit"
  104. 2040 [158]at,2,23,"(NULL) - (NULL)ew search  s - lenontinue search
  105. 2099 return
  106. 2100 dx=dx+1:ifd%(dx)=0thendx=0
  107. 2110 t=t+1:return
  108. 2200 syssh,0,39,0,24:sysmt+48,0:sysmt+15,e$,dv,28000:sysmt+36,28000:en=f%
  109. 2205 ife$="error bnf"thensysmt+30,"   [201] couldn't find "+chr$(34)+f$+chr$(34),1,1
  110. 2210 sysbox,0,39,1,19,160,7:sysframe,0,39,0,20,2
  111. 2220 sysmt+42,1,38,1,19,1,7,1,1,0,en-1,0:return
  112. 2300 t=0
  113. 2310 gosub1000:ifval(a$)orf%<0thenift<ndthengosub2100:goto2310
  114. 2320 ifval(a$)=0andf%>-1then40000
  115. 2330 e$="error bnf":goto2200
  116. 3000 sysmt+27,bn:sysmt+33,bo%:return
  117. 5000 sysmt,0,39,0,24,95,095,15,12
  118. 5005 syssh,0,37,16,21:sysfr,1,38,16,20,15:sysbo,2,37,17,19,160,1
  119. 5010 print"";:sysce,18,a$:return
  120. 5020 gosub5000:poke198,0:wait198,15:return
  121. 10000 _"@0:compleat nt"
  122. 10010 stop
  123. 20000 sysmt+15,"t.about cnt",dv,32768:sysmt+36,32768:en=f%
  124. 20010 ww$="[196]ocumentation":gosub2000:sysmt+42,1,38,3,18,1,15,15,7,0,en-1,1:run
  125. 40000 q$=chr$(34):poke646,peek(53281):print"[147]":poke53272,23
  126. 40100 print"[147]l[207]"q$f$q$","d%(dx)
  127. 40110 print"p[207]53272,23:run:":poke631,13:poke632,13:poke198,2:end
  128.